﻿'Como fazíamos antes do VB 10 / Auto Implemented Properties

Public Class Cliente_Antes
    Private _id As Integer
    Private _nome As String
    Private _apelido As String
    Private _criadoEm As DateTime = DateTime.Now

    Public Property Id() As Integer
        Get
            Return Me._id
        End Get

        Set(ByVal value As Integer)
            Me._id = value
        End Set
    End Property

    Public Property Nome() As String
        Get
            Return Me._nome
        End Get

        Set(ByVal value As String)
            Me._nome = value
        End Set
    End Property

    Public Property Apelido() As String
        Get
            Return Me._apelido
        End Get

        Set(ByVal value As String)
            Me._apelido = value
        End Set
    End Property

    Public Property CriadoEm() As DateTime
        Get
            Return Me._criadoEm
        End Get

        Set(ByVal value As DateTime)
            Me._criadoEm = value
        End Set
    End Property

End Class